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Last month's meeting was a talk by Allan Clarke on the differences 
between TRS80 programmes and Colour Genie programs. Allan showed the 
difference between the addresses of the two machines. This talk will 
be written up for the next newsletter. From the comments I have had 
since the meeting, Allan's talk was a great help. Thank you, Allan. 

COMPILER PROGRAM 


We have been having a bit of difficulty getting this program to run on 
some old rom machines. According to the English magazine, this 
program is supposed to run on both lots of roms. It worked perfectly 
on the old rom machine that I've got, but I know it doesn't on quite 
a few old rom machines. 


However, Roger Lockerbie has come across a solution - those of you 
having problems, try the following and let us know how you get on : - 

1) . Load COMPILER and execute it as usual <i.e. *? / ) 

2) . Then load or type in your basic program. 

3) . When the program is ready to be compiled, CALL A7E0 

Hopefully, everything will now work. Thank you Roger. 


ORDERS FOR TAPES AND CORRESPONDENCE 


I must apologise for the long wait 
tape orders and replies to letters 
couple (or more) weeks afterwards 
or letter writing at all. Add to 
is much nicer to be tucked up in f 
I have also been having trouble wi 
it all over to Ken, who ran out of 
whole of last weekend catching up 
not, until I clear the mailbox aga 
order . 


that some of you have 
. I had a hospital vis 
I just didn't feel up 
that the fact that dur 
ront of the fire, with 
th copying, and for a 
blank tapes. However 
on the tape orders and 
in, I haven't got a si 


had, for both 
it and for a 
to any copy i ng 
i ng winter it 
the family, 
while passed 
, I spent the 
be 1 i e ve it or 
ng 1 e unfilled 


While I am on the subject of tapes, I would like to mention ONCE AGA I N 
that the Group is a completely voluntary one, and that at the moment 
we only have 3 active committee members, Ken mainly concentrating on 
repairs, and arranging the monthly meetings. Then Chris is 
'compiling', copying, and distributing this newsletter. I am 
answering all the letters and copying all the tapes, and believe me, 
this takes a considerable amount of my time. Please remember that you 
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are just one person, and I know that it seems 1 ike a long wait for 
you, but try to think of it from my end - here I am with dozens of 
orders to fulfill, a fulltime job, a husband and two children who 
really appreciate me showing my face once or twice a week, and one 
social night each week, which I 

cannot possibly do without. So, please, please, wait patiently for 
your order. You are one of many! I will get around to it as soon as 
I can . 

My husband did the banking for me while I was 'indisposed' - this 
explains why your cheque was banked, yet you hadn't received your 
order. The money is better 

in the bank, than on a bit of paper sitting in my computer room. 

Also, you people more than half way down the North Island, and all of 
you in the South Island, please allow up to two weeks for the Post 
Office to actually get off their rear ends and do a little bit of 
work. Most parcels take at least two weeks once they have left my 
hands. And I'm sure that most Postal people do nothing but sit on 
their hands f ! 

I must say I was surprised at the Christchurch Group's last magazine 

(which is always brought along to the meetings for you to read) - thf>y 

mentioned several times ir their June newsletter that Auckland were 
very slow in getting in touch with them. I don't know when they 

posted their letter and there was no date on it, but I received it on 

the 12th of June and I posted a reply to them on the IBth of June. 

Here was I congratulating myself on such a quick reply (most unusual 
as most of you have cause to know!!)but they obviously didn't think 
so . 

While we are talking about the Christchurch Group, Kevin Smith, will 
you please contact them. Until I mentioned that there was a 
Well ington Group that had recently started up, they never knew one 
was in existence. I don't know how the Group is going - hope it is 
going well - but please contact the Christchurch Group (Box 25 215). 

A Christchurch Group member has a problem - he has a Seikosha GP-250X 
printer and can't manage to get it to print out according to the 
format of a pre-printed statement (photocopy enclosed). Are there any 
members that can help? I think though, that to help properly, we 
would need a copy of his program, so that it could be changed to fit 
the printout. 


THE ENGLISH COLOUR GENIE USERS GROUP 


I have had no news from the English group for a while - and no more 
Gum magazines either. I have posted off a fairly strong letter to 
them. I am actually beginning to wonder whether they aren't 'going 
under'. They still owe us about 100 pounds worth of program/hardware, 
which we paid in advance, last December. This is just not good 
enough, and so they have now been told. It means at least $300 that we 
could be doing something with ourselves. Mind you, it will be very 
upsetting if we have lost the Gum magazine. However, I will keep you 
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up to date on what is happening. I have also sent over for another 
disk interface, I am hoping they are not out of stock, or we're in 
trouble, the amount of money I sent over was fairly large. 


DISK DRIVES 


Mark will not be making the disk drive i n ter f aces . Af t er pulling the 
sample one to pieces, figuring out how to make them, and pricing all 
the parts, Mark has found that it would cost as much, if not more, 
as the $350.00 approx, that it presently costs to send for one. And 
if England have now run out, then that means another try to Germany. 
They never saw fit to answer any of my previous letters (4 in English, 
1 in German thanks to Keith McGill), so I don't really expect any 
great changes. Don't these people want to make money!! The English 
Group were raking it in from us, royalties up till June were sent 
every three months, we have had to pay twice their advertised price to 
purchase masters, airmail postage is 1 pound per tape and royalties 
are 25% per program sold. We sent them $1100 at Christmas time in 
payment of royalties and new software, and to still be waiting for 
about #300 worth is the outside of enough. 

From this you can gather that again there is no new software this 
month!! Hopefully next month. 


SOFTWARE, NEWS AND ITEMS FROM HOLLAND 


Our Holland friends are absolutely marvellous - they have been sending 
over a lot of programs, and will be sending a lot more yet. They have 
also sent over a whole book called 'Machine Tips and Tricks' (I think) 
- unfortunately all in German, but Keith McGill is translating it for 
us. It will then be copied and sold by us. The book has some great 
programs in it, and will be a real asset. I understand that this book 
is a sequel to an earlier one, I will try and get hold of the earlier 
one i f I can . 

There isn't anything I wouldn't try to send Peter and Anthony. 

Between them, they are practically holding the Group together (with a 
little bit of help from us). If we had to pay the master price to 
England for the programs these two lads have send us for nothing, it 
would have cost hundreds of dollars. So if anyone has any hardware 
tips, please send them to me so that I can pass them on . To 
give you an example, if we take the Chopper tape, to purchase from 
England cost us 7.95 pounds twice - some $25.00 to $30.00 just for 
the master tape. Then royalties would come to around $6.00 per 
program sold, and airmail postage for the master another $3.00 approx. 
All this makes a total of around $33.00 per master tape. As quite a 
few Chopper programs have been sold, we would probably have to pay 
some $60.00 per ten tapes sold here. Although I had already ordered 
the Chopper program from England, Peter sent me one, which has saved 
us quite a bit. 

PROGRAMS TO TYPE IN 


Murray Jones of Tauranga, has sent us several programs that he has 
either written or converted (I don't know which). There are a couple 

of these over the page. 
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This first program is a rather nifty little Character Generator. It 
starts off with a square of 8 x 8 characters. You, using the arrow 
keys, work your drawing into the square, using the spacebar when yo 
are in the position you want. While you are drawing in the left han 
corner, a miniature drawing is appearing on the right hand side. When 
you have finished your picture, press return and after a short recess, 
the Genie comes back and tells you the data required for the drawing. 


1 F0RADDR=-3065T0-3057: POKE ADDR, 0: NEXT: CLEAR200: CLS: PRINT" 1234567S 

2 F0RI=1T08: READN ( I ) : NEXT : DATA 1 28 , 64 , 32 , 16,8,4,2,1 

3 F0RI=1T08: PRINTI : NEXT 

4 DIMP(64) ,C (64) : FOR I = 1 7449T0 1 7729STEP40 

5 F0RJ=1T08: P=P+1 : P tP) =J + I : C ( P ) =PEEK ( P ( P ) ) 

6 NEXTJ , I 

7 2=1 : POKEP (Z) , 230: C=255: PRINT&60, CHR* (129) 

8 A=PEEK ( -1984) : IFA=0THENG0T08 

9 IFAANr2THENF0RI = lT064: POKEP ( I ) , 32: C ( I ) =32: NEXT : F0R1 = 1T08: POKE-3065+1 , 0: D ( I ) =0 
NEXT: : 2=1 

10 IFAAND8AND2>8THENP0KEP (2) , C (2) : 2=2-8:0=232 

1 1 IFAAND,16AND2<57THENP0KEP (2) ,0(2) : 2 = 2 + 8:0=251 

12 IFAAND32AND2 >1THENP0KEP ( 2) , 0 (2) : 2 = 2-1 : 0 = 253 

13 IFAAND64AMDZ<64THENP0KEP(Z) ,0 (2) :Z=2+1:0=255 

14 IFAAND128AND0 (2) =32THEN0 (2) =202: POKEP ( Z) ,0(2) : 0=1 : G0SUB37: GOTOS 

15 IFAAND128ANDG (2) =202THENG ( 2 ) =32 : POKEP ( 2 ) ,0(2) : 0=-l : G0SUB37 : GOTOS 

16 IFAANDITHENPRINT: PRINT§400, "PLEASE WA I T . . . " : GOTO 1 S 

17 POKEP (2) , 230: GOTOS 

18 F0RI=1T08 

19 F0RJ=1T0S 

20 X=X+1 : IFO (X) =32THENA*=A*+ "0"ELSEA*=A*+ " 1 " 

21 NEXTJ : A* ( I ) =A*: A*=" " : NEXTI 

22 F0RI=1T0S 

23 F0RJ=1T03 

24 D=D+N ( J ) *VAL (MID* ( AS ( I ) , J , 1 ) ) 

25 NEXTJ 

26 POKE-3065+1 , D: D ( I ) =D 

27 D=0 

28 NEXT 

29 PRINTS60, OHR* ( 129) 

30 F0RI=1T08: D*=D*+STR* (D ( I ) ) : NEXT 

31 F0RI=1T032 

32 IFMID* (DS, I , 1 ) =" "THENA*=A*+ " , " : NEXT 

33 A*=A*+MID* (DS, I , 1 ) : NEXT 

34 A*=RIGHT* ( AS, LEN ( AS) -1 ) 

35 PRINT§600,A* 

36 IFPEEK ( -1984) AND1THENRUNELSEG0T036 

37 Y=2/8 

38 X=2-INT ( Y) *8: IFX=OTHENX=e 

39 IFY< >INT (Y) THEMY=INT (Y+1 ) 

40 D (Y) =D (Y) +0*N (X) 

41 P0KE-3065+Y, D (Y) 

42 X=0: Y=0: RETURN 


a c 
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This program is a File Program, which is pretty well self explanatoryc 


1 CLEAR20000 
10 GOSUB900 
12 :*;84000 

20 CLS ; PRINT"PLEASE ENTER FILE NAME" : INPUTA$ 

30 CLS: PR I NT "PLEASE ENTER DATA FOR THE FILE ON •■;A$:INPUT Z$ , X$ , 0$ , V$ , B$ , N« , Ml , P 
W1 i 

40 0=70 
45 GOTOlO 

50 CLS; PR I NT "PLEASE PREPARE CASSETTE AND PRESS RETURN" 

55 I $=INKEY« : IFI ♦=" "THEN55 

60 CLS ; PR I NT "PLEASE PRESS PLAY AND RECORD ON CASSETTE THEN ANY KEY OF THE GENIE" 
70 I i=INKEYI ; IFI »=" "GOTO70 

80 CLS:PRINTTAB< 10) " iRECORDING NOW: " 

90 PRINT#- 1 ,A$ ,Z$ ,C;PRINT#-1 ,A$ ,X$ ,C:PRINT#-1 , At , C« , C ; PR I NT#- 1 ,At ,Vt ,C: PRINT#- 1 , 

At ,Bt ,C : PR I NT# -1 , At4 ,Nt ,C : PRINT#- 1 , At ,Mt ,C : PR I NT# -1 , At ,PW1 t ,C 

100 CLS I PR I NT "PLEASE PRESS STOP KEY ON TAPEDECK REWIND CASSETTE" 

105 It=INKEYt : IFIt=""GOTO105 
1 1 0 GOTO 1 0 
300 CLS: PRINT 

310 PR I NT "PLEASE PREPARE DATA CASETTE TO REPLAY" 

320 PR I NT "PRESS ANY KEY WHEN READY" 

330 I t=INKEYt ; IFI t=" "THEN330 
340 PRINT" ;PLAYING NOW: " 

350 INPUT#-1 , At ,Zt ,C ; INPUT#-1 ,At ,Xt ,C ; INPUT#-1 , At ,Ct ,C : INPUT#-1 , At , Vt ,C : INPUT# - 1 
,At ,Bt ,C; INPUT#- 1 ,At ,Nt ,C; INPUT#- 1 ,At ,Mt ,C; INPUT#-1 ,At ,PWlt ,C 
355 COLOURRND( 10) ;PRINT"LOADING IS NOW COMPLETE . PRESS ANY KEY" 

360 I t=INKEYt : IFI t=" "THEN360 
370 GOTOlO 

600 CLS ;COLOURl : PRINT®! 0, "FILE NAME ".;At.; 

610 COLOURS : PR I NT®50, " " 

620 COLOUR 1 : PR I NT "DO YOU WANT THIS FILE" 

630 It=INKEYt ; IF!t=" "THEN630 
640 IFI t="N"THENGOTO10 

650 CLS:PRINT"THE DATA ON THE FILE IS " Zt , X t , Ct , V t , Bt , N t , Mt 

660 It=INKEYt ; IFIt=" "GOTO660 
670 GOTOlO 

750 At="" :Zt="" ;Xt="" :Ct="" :Vt="" ;Bt="" :Nt="" :Mt="" 

760 GOT0900 

900 CLS:PRINT:PRINT:C0L0URRND<9) :PRINTTAB( 15) "FILE PROGRAM" 

1000 C0L0URRND(9) ;PRINT®333, " l.Make File 2. Save Fi 

1 e 3 . Load File 4. Display 

File 5. Delete File" 

1005 HN=649 

1006 FORT=1T020:COLOURRND(9) : READDt : PRINT®HN + T , Dt ; FORC= 1 TO 1 00 : NEXTC : NEXTT 
1010 COLOURRND<9) :PRINT®570, "SELECT NUMBER PLEASE " 

1020 Kt=INKEYt : IFKt=" "GOTO1020 

1030 COLOURRND(9) ;K=VAL(Kt ): IFK<10RK>5THENPRINT;PRINTTAB<2) "FAULTY SELECTION 1-5 
ONLY, TRY AGAIN" :GOT01010 
1 040 RESTORE : ONKGOSUB20 ,50,300,600,750 
2000 DATAM, A,D,E, ,B,Y,,M,U,R,R,A,Y,,J,0,N,E,S 
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NEW MEMBERS 


We have three new members to welcome this month. We hope you enjoy our 
newsletters, and being part of our Group. The new members' names are: 
Stephen Doell,36 Victory Aven ue , Kar or i , We 1 1 i ng t on 
Richard Cameron, 107 Duke Str eet , I nver carg i 1 1 
Shirley M. Flower, 32 Fairview Avenue ,Fe i 1 d i ng 


EUROMAT I C TAPE RECORDERS 


Quite a lot of interest has been shown in these and I have therefore 
asked the person that can get them for us (for around >50) to purchase 
a couple of them so that we could keep them 'in stock'. However, two 
obviously isn't going ^o be enough, we have orders for five. If any 
country people are looking for a reasonably priced recorder, let me 
know that you definitely want one so that I can order it for you. 


DATA STABILISERS 


Mark did a run of 25 stabilisers a couple of months ago, and 
unfortunately, these have now run out. He advises that, due to the 
parts having risen highly in cost, all data stabilisers from now on 
will cost >25.50 each. Sorry about this, I guess we should be used to 
it by now. 


BASIC +5 


This tape is for disk users only (?), Don't ask me how they managed 
that one! ! We are having trouble translating the program, let alone 
then turning round and trying to load a cassette tape through the disk 
dr i ve ! ! 


Well, that's about it from me this month, remember, we welcome the 
sales of tapes - it means that we can then go and purchase new ones 
with the money we make, but please wait a little while before ringing 
or writing to find out where your order is. (If the cheque has been 
banked, it's a pretty good indication that I've got your order in my 
'todo'pilel! 


No 1 a Hugg i n s 




1 


PRINT "THIS IS YOUR CHANCE TO MAKE SOME UNUSUAL FIGURES” 

PRINT: PRINT" ALL YOU DO IS ENTER THE NUMBER OF GRID LINES AND FOUR SETS OF CO“ 

RDINATES ANYWHERE WITHIN THE SCREEN AREA AND THEN WATCH." 

C0L0UR15:PRINT:PRINT "TRY ENTERING CO-ORDINATES WHICH WHEN-JOINED FORM CROSSES 

ND TEES....E.G. 0,0. ..120, 80 10,60 140,10" 

0 PRINT;PRINT 

5 INPUT"HOW MANY GRID LINES" ;N 
0 F0RI=1T04 

0 PRINT:PRINT; INPUT"CO-ORDINATES CX-CY " J CX ( I ) , CY ( I ) 

5 NEXT I 

10 DIMLX(4,N) :DIMLY(4,N) 

20 CLS 

30 REMDRAW SIDES OF GRID 
35 fcls:fcolour2:fgr 

90 PLOTCX(l) , CY( 1 ) TOCX (2) , CY ( 2 ) TOCX ( 3 ) , CY ( 3 ) TOCX ( 4 ) , CY ( 4 ) TOCX ( 1 ) ,CY(1) 

10 F0RI=1T0N 

20 LETLX(1,I)=CX(1)+(CX(2)-CX(1) )*I/N 
30 LETLYd, I)=CY(1) + (CY(2) -CY(1)')*I/N 
40 NEXTI 
30 F0RI=1T0N 

£0 LETLX (3, I ) =CX (4) + ( CX ( 3 ) -CX ( 4 ) )*I /N 
70 LETLY(3, I ) ®CY ( 4 ) + ( CY ( 3 ) -C Y ( 4 ) )*I/N 
90 NEXTI 
?0 F0RI=1T0N 

30 LETLX(2,I)=CX(2)+(CX(3)-CX(2) )*I/N 
10 LETLY(2, I ) =CY (2) + ( CY < 3 ) -CY ( 2 ) )*I /N 
20 NEXTI 
30 F0RI=1T0N 

^0 LETLX (4, I)=CX(1)+(CX(4)-CX(1) )*I/N 
50 LETLY <4, I ) =CY (1 ) + (CY (4) -CY (1 ) )*I/N 
sO NEXTI 

30 REMDRAWGRIDLINES 
:0 LETK=1 : G0SUB500 
"0 LETK=2: G0SUB500 
30 G0T0430 

DO REMSUBROUTINEPLOT 
10 F0RI=1T0N 

5 FCOLOUR ( INT (RND (3) +1 ) ) 

0 PLOTLX (K, I ) , LY (K, I ) TOLX (K+2, I ) , LY (K+2, I ) 

0 NEXTI 
0 RETURN 

0 FORT=1T02000;NEXT:FCLS;GOT035 




Basic Basic -for Parents & Beginers 

Part 2 


David Donaldson 


Well now, how did -/ou make out with last months article ? 
If you are reading this I guess you found part 1 usefull. 

I hope you did your homework , see how you made out with those 
brackets (technically they are called parenthesis) they are the 
key to making the computer do its maths in the correct order. 


Right, now the best thing to do first will be to re-load the 
programmes you wrote last time S; saved to tape. Your computer will 
either use the command 'CSAVE’ or just -’SAVE' -'CLOAD' or -'LOAD’ 
depending on your system, your manual will tell you. Go ahead now 
re-load your last months programmes remembering to switch the 
tape recorder on first ?; then the computer in order not to get an 
Ov/erload in the computers input when the tape starts. Once loaded 
lh<e command ’LIST’ fallowed by ’return-’ will list the programms 
to the screen. 

NovJ just go ahead >“■ t'/pe in the following programme. 


•410 CLS 

420 PRINT: PRINT "To convert Farenheit to Centigrade " 

430 PRINT: INPUT "What is. the temperature in Farenheit ";F 
440 C=( (F-32) #?> /9 
450 PRINT: PRINT 

460 PRINT "The temjjerature in Centigrade is ";C 
470 PRINT; INPUT "Another temperature Y/N ; Z$ 

480 IF Z$="Y" GOTO 410: IF Z«="N" GOTO 490 ELSE 480 
490 END 


If 


you 
ex ecute 


’return’ §/. it will 
lowest line number L 
will always start at 
last three blocks we 
way to overcome this, 


want to make it run type ’RUN’ ?c 
However it will start from the 
work upwards, this mteans that this programme 
line 110 of course will never get to the 
wrote. DRAT. Well don’t panic there is a 
by specifying the line for execution to start at Use the command 
’RUM Cline number 1’ eg RU.M 210 ’return’ will start the programme 
at the secor’id block of code S< so on. Clever Eh. 

Now how did your programme look compared -with this example ? 
well don’t worry if it wasn’t exactly the same, if it runs its OK. 
The examples I am giving you could stand a bit of streamlining 
but the purpose is to demonstrate certain programming features. 

those brackets, just for fun type in the 


Now back to 


foil owing , 

510 C = 100 - 
520 PRINT C 


32 # 5 / 9 


■'"his will give the centigrade equivalent of 
it ? Type in RUN 510 "< note the answer. Then 
answer 100 to the question -'What temperature 
ccmpute" to quote an ex per t . The answer is 


100 deg F or will 
type in RUN 410 and 
?’ WOW "it does not 
those brackets of 


o 


1 


cctirsf.-The little beastie does its calculations on a line in a 
sirict order, it runs dowr. the line Z>. does all the bracketed 
cal cul atione first from the deepest brackets outwards then it 
(^os?5 back along the line ?x does mul t i pi i cat i on , di vi si on , addi t i on 
subtraction in tliab order . Remember 'By My De»ar Aurit Sally' 

(Br acl innl t ipl y , di V ok you've got it) 

Now to get rid of those unnecessary lines type in 510 
'return' ?■ 520) 'return' ?< hey presto, list the programme S'. where 
are they. 

On the other hand you will remember that at the beginning of 
part one we left 10 numbers between lines just in case we wanted 
to add a hit of extra or change something, so right now, at the 
end of listing, right after line 490 type the following 

115 REM CALCULATION BLOCK No 1 
215 REM CALCULATION BLOCK No 2 
315 REM CALCULATION BLOCK No 3 
415 REM CALCULATION BLOCK No 4 

Now that 5 silly, typing them out of order like that, or is it 
wall lets type LIST 'return' ?< see whats happened Hey Presto 
well the jolly old thing is magic isn’t it, its sorted them out 
into correct numerical sequence. The computer is number hungry in 
fact it only works with numbers, even the letters of the alphabet 
are:- converted by a little converter inside the computer to 
ni.imbers before the circuitry can deal with them. 

These numbers are given a code, they are called ASCII codes 
tlie wfjrd ASCII stands for American Standard Code for Information 
Interchange S< each letter (capital or smal 1 ), Number S' character- 
key on tiie coiiputer has been assigned a code number- . These are 
kric^wn as Character strings or to the computer CHR$ the dollar 
sign is used to show a stririg (either letters or numbers) to the 
computer . 

You can see them by typing in the following short programme, as 
.its not part of the overall utility group we are putting together 
through this series start with no programme in the memor-y o< type 
in the follov^ing. 

The way to clear all resident programmes out of current 
memory is to type in NEW 'return' its a good practice to do 
this regardless before typing any new programme in. 

10 CLS 

20 FOR N = 1 TO 200 
30 PRINT CHR$(N)5 
40 NEXT N 
50 END 

OH you spotted it then, SEVERAL columns of letters numbers 
other exciting looking bits %>. pieces. Why so many columns ? well 
we asked it to print that many columns didn’t we ? EH ? You know 
that the computer can S: will only do what we ask it to, the trick 
is in the comma (,) at the end of the print line, this divides the 
line into print zones prints each step on a different zone, a 
good trick we will be using later. But wait on now there is 
50:iiething else we havn't seen before too, FOR M=1 to 200 OK well 
the idea is to have the computer repeat a step, in this case 200 
times but we have the computer change its instructions itself, 
stepping from 1 to 200 each time it prints the following line the 



Voc^ \0 

NEXT statement makers execution go back to the FOR line until the 
re<-)ui,-Rd number o-f • ’ oopcj have been made. Called a FOR/NEXT loop. 

N is a variable, an in alg>:?bra,we assign a value of 1 to it in 
] i nr 20 'y each time the computer goes back to line 20 it adds 1 
to N making it 2 then 3 so on ie.it varies. 

Out 3 hut.... what i. s a REM statefnent in that listing ? 

Well REM is short for- 'REMARK’ ?< i n fact that is all that it’s 

there for-, for YOU to put certain remarks in the progr-amme for 

your own use. Its lite using a jotter pad for re?mi nders , the REM 
statement is total]./ ignored by the computer as it races alorrg 
reading e-Ach line as it gcxrsjwhen it gets to a line that starts 
with REM it just skip^;; thivU line, this lets you tag programme 

parts or blocks so you know what that block is, when editing or 

changing or, worse ati 1 1 , debugging . What 's debugging I hear you 
ask ? Ha. Thats when you fiave a 'bug' or problem in a programme 
?• it won't run properly 8/ you have to 'debug' it to get it 
running, a very frustrating time consuming exercise I can tell 
you. I shudder to thirtk about it. 

Well I think that that's about enough for this rnontfi, there 
are a lot of new commands to get to grips with so no homework I 
would like you to revievj both parts 1 Z< 2 So see you next month 



1 REM 


u 



CORAL 


2 REM TYPED IN FOR THE COLOUR GENIE BY H.E.PHILIPSEN 

3 REM FROM A PROGRAM FROM"MORE BASIC COMPUTER GAMES" 

4 REM BY DAVID H.AHL 
10 DIMA(21) 

40 DIMS(2,11) 

50 FORl=lTO2:FORJ=0TO9 
55 READS(I,J);NEXTJlNEXTI 
60 DATA04,2,3,3,2,2,1,0,-1 
70 DATA1,2,3,4,5,4,3,2,L0 

lOO CLS;PRINT"YOU ARE THE COWBOY.GO CATCH YOUR HORSE IN THE CORRAL!" 
no INPUT"DO YOU WANT FULL INSTRUCTIONS".:F$ 

120 IFLEFT»<F<,l)="N"GOTO190 

130 PRINT;PRINT;PRINT"YOU MOVE TOWARDS YOUR HORSE 1 TO 5 STEPS AT A TIME." 
140 PRINT’TF YOU MORE THAN HALVE THE SEPARATION HE WILL BOLT!" 

150 PRINT"HE MAY ALSO BOLT WHEN HE IS CLOSE TO THE RAIL" 

160 PRINT"WHEN YOU COME WITHIN 2 STEPS HE MAY KICK.SO LOOKOUT!!" 

180 PRINTiPRINT 

190 PRINT"AFTER '?' TYPE IN DIGIT FROM 1 TO 5 FOR COWBOY'S NEXT MOVE" 

192 FOR 1=1 TO 4000;NEXT 
195 CLS 

200 C=l;L=l:K=0;M=0;N=0:GOSUB800 
220 IFR>5THENQ=-Q 
225 H=13+Q;GOSUB810 
230 T=2+P;PRINT 
300 B*=" 

310 F0RJ=1T021:A(J)=32:NEXTJ 
320 A(C)=67;A(H)=72 

330 C0L0URl;PRINTNj;C0L0UR2;PRINTCHR$(221).: 

333 F0RJ=1T021:C0L0UR4:PRINTCHR$(A(J)>j:NEXTJ 
337 COLOUR2;PRINTCHR$(203),B»; 

370 X=ABS<H-C):L=SGN(H-C) 

380 N=N+l;IFK>0GOTO640 
390 IFN>100THEN9a0 
395 INPUTD 

400 IFD>0ANDD<6GOTO450 

420 PRINT'TLLEGAL MOVE.TRY AGAIN", .:;GOTO390 

450 E=C+L*D:IFE<lORE>21THEN420 

460 C=E;GOSUB800 

510 G=P:H=H+L»G;G0SUB810 

530 IFX<2*DANDD>1GOT0570 

540 IFH>1ANDH<20THEN600 

545 GOSUB800 

550 IFR>2GOT0600 

555 IFX>7GOT0300 

570 G=9+2*P;H=H-L*G:L=-L-L:GOSUB810 

580 IFABS<H-C)>1THEN590 

585 H=H-3*L;GOSUB810 

590 B$="BOLTED";GOTO310 

600 IFABS(H-C)>2GOT0300 

605 GOSUB800 

610 IFR>3GOTO700 

615 GOSU3800 


620 K=P+2:M=M+l:H=H-5tL:G0£UB810 ‘ 

630 Bi="KICKED":GOTO310 

640 IFM>TGOT0900 

650 K=K-1;PRINT:GOSUB800 

670 H=H+L*(P+1):GO£UB810:GOT0300 

700 IFH=CTHEN930 

705 GOT0300 

800 R=INT(RND(10)):P=S(1,R):Q=S(2,R);RETURN 
810 IFH<1THENH=1 
820 IFH=>21THENH=21 
830 RETURN 

900 PRINT:PRINT"THOSE KICKS LANDED YOU IN THE HOSPITAL!" 

910 PRINT"GET WELL SO0N!!":GOTO960 
930 F0RJ=1T021;A(J)=32;NEXTJ:A(C)=35 
940 PRINT,"!".: 

943 F0RJ=1T021:PRINTCHR«A(J));:NEXTJ 
947 PRINT"!" 

950 PRINT:PRINT"YIPPEE!!NOW SEE IF YOU CAN CATCH HIM IN FEWER MOVES" 

960 INPUT"ANOTHER ROUNDUP";F$ 

970 IFLEFT<(F$,1)="Y"THEN200 
975 GOT0999 

980 FRINT:PRINT"ENOUGH!!YOU'D DO BETTER AS CAMP COOKI":GOTO960 
999 END 


1 REM SLOT MACHINE 

2 REM 

3 REM 

4 REM SENT IN BY HERMAN PHILIPSEN 

5 REM 

6 REM 

10 T=20;Q=840 

20 COLOURS, 'CLSlPRINTlPRINTlPRINTlPRlNT'.PRINT" SLOT MACHINE";PRINT 

30 COLOUR4;PRINT;PRINT;PRINT:PRINT:PRINT"WELCOME TO THE CASINO'";PRINT:PRINT;PRINT”YOU MAY 


BET GOLD CHIPS " 

40 PRINT"WORTH L2,5,OR 20 DOLLARS." 

50 PRINT:PRINT:INPUT"PRESS RETURN TO CONTINUE".:P:CLS 
60 COLOUR4:PRINT"$5000 WILL BREAK THE BANK PAYOFFS ARE:" 
70 0=340 

80 PRINT;PRINT"3 BARS 100 TO 1" 

90 PRINT"3 BELLS SO TO 1" 

100 PRINT"3 LEMONS 50 TO 1" 

100 PRINT"3 LEMONS 50 TO 1" 

no PRINT"3 PLUMS 30 TO 1" 

120 PRINT"3 PEACHES 25 TO 1" 

130 PRINT"3 ORANGES 10 TO 1" 

140 PRINT"2 BARS £, 1 BELL....10 TO 1" 

150 PRINT"2 BELLS 1 LEMON...9 TO 1" 

160 PRINT"2 LEMONS 8. 1 PLUM...8 TO 1" 

170 PRINT"2 PLUMS & 1 PEACH...7 TO 1" 

180 PRINT"2 PEACHES 6 10RANGE.5 TO 1" 

190 PRINT"2 ORANGES t. ANYTHING2 TO 1";PRINT:PRINT 
200 COLOUR4:PRINT"YOU NOW HAVE ♦ ".;T;PRINT 
200 COLOUR4;PRINT"YOU NOW HAVE $ ".:T;PRINT 
210 INPUT"WHAT IS YOUR BET";B 



220 IF<B=1)+<B=2)+(B=5)+(B=10)+(B=20)THEN240 

230 PRINT:PRINT''yOU MAY BET 1,2,5,10 OR 20 DOLLARS ONLY":GOT0200 
240 IFB<=TGOTO260 

250 PRINT:PRINT"YOU DON'T HAVE THAT MUCH, TURKEY''";GOTO200 

260 PRINT :INPUT"PRESS RETURN TO START THE WHEELS SPINNING' 

270 F0R0=1T03 
280 Q=Q+B 
290 P=0 
300 R=RND<6) 

305 PRINT:PRINTS'Q,"BAR":PRINT®Q,"BELL";PRINT€'Q,"LEMON":PRINT®Q,"PLUM";PRINTS'Q,''PEACH":PRINT®( 
ORANGE";PRINT®Q,STRING$(B,32) 

310 FORBELL=1T010;CALL357C:NEXTBELL 

320 COLOUR6,TFR=lTHENPRINTeQ,"BAR":L=300000;GOT0380 

330 COLOUR8:IFR=2THENPRINT@Q,"BELL":L=20000:GOT0380 

340 COLOUR4:IFR=3THENPRINTeQ,"LEMON":L=3000:GOTO380 

350 COLOUR3;IFR=4THENPRINTeQ,"PLUM":L=100:GOTO380 

360 COLOUR5.TFR=5THENPRINTS'Q,"PEACH'‘:L=20:GOTO380 

370 COLOUR5:IFR=6THENPRINTeQ,"ORANGE":L=3 

380 PRrNT;IFO=lGOTO620 

390 IFO=2GOTO640 

400 IFO=3GOTO660 

410 NEXTO 

420 IFD=900000GOT0690 
430 IFD=60000GOT0720 
440 IFD=9000GOT0750 
450 IFD=300GOT0780 
460 IFD=60GOT0810 
470 IFD=9GOTO840 
480 IFD=620000GOT0870 
490 IFD=43000THENGOT0880 
500 IFD=6100THENGOT0910 
510 IFD=220THENGOTO94O 
520 IFD=43THENGOTO970 
530 IFD=300006THENGOT01000 
540 IFD=20006THENGOT01000 
550 IFD=3006THENGOT01000 
560 IFD=106THENGOT01000 
570 IFD=26THENGOT01000 

530 C0L0UR4;PRINT:PRINT'‘S0RRY,BUT YOU LOSE YOUR BET OF i ":B 

590 FOR2=1T01500;NEXT 

600 T=T-B;IFT<=0GOTO1070 

610 CLS;GOTO60 

620 A=L 

630 GOT0410 

640 E=L 

650 GOTO410 

660 C=L 

670 D=A+E+C 

680 GOTO410 

690 CLE;PRINT;PRINT"JACKPOT!l!! 100 TO 1 PAYOFFSI!" 

700 T=T-t-(100*B) 

710 GOT01030 

720 CLS:PRINT''YOU WIN AT 80 TO 1 ODDS" 

730 T=T+(80*B) 

740 GOT01030 

750 CLS:PRINT"YOU WIN AT 50 TO 1 ODS" 

760 T=T+(50:|'.B) 

770 GOT01030 

780 CLS:PRINT"Y0U win at 30 TO 1 ODDS" 

790 T=T+(30^:B) 

800 GOT01030 



'H- 

810 CLS;PRINT'‘yOU WIN AT 25 TO 1 ODDS" 

820 T=T+(25:*B) 

830 GOT01030 

840 CL£:PRINT*'YOU WIN AT 10 TO 1 ODDS" 

850 T=T+(10:*:B) 

860 GOT01030 
870 GOTO840 

880 CLS:PRINT"YOU WIN AT 9 TO 1 ODDS" 

890 T=T-t-<9*B) 

900 G0T01030 

910 CLS:PRINT"YOU WIN AT 8 TO 1 ODDS" 

920 T=T+(aiB) 

930 GOT01030 

940 CLS;PRINT"YOU WIN AT 7 TOl ODDS" 

950 T=T+(7*B) 

960 GOTO1030 

970 CLS:PRINT"YOU WIN AT 5 TO 1 ODDS" 

980 T=T+(5*:B) 

990 GOT01030 

1000 CLS:PRINT"Y0U win AT 2 TOl ODDS" 

1010 T=T+(2*B) 

1020 GOT01030 

1030 IFT>=5000GOT01050 

1040 GOTO60 

1050 PRINTiPRINT’TNCREDIBLE YOU'VE BROKEN THE BANK!!! CONGRATULATIO 

C I'* 

w/ 

1060 END 

1070 PRINT:PRINT"AND YOU'RE OUT OF MONEY-TRY AGAIN SUCKER" 
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STOP PRESS 


STOP PRESS 


STOP PRESS 


STOP PRESS STOP PRESS 


Some items of news have just come to handl- 


NEW PROGRAMS 


We have just received another wonderful 
a total of 26 programs on this tape, so 
help of my children) to get quite a few 


tape from Holland - there are 
I should be able (with the 
ready for sale for next month. 


ROM BOARDS 


These are now available at a cost of $50.00 each. They will hold the 
2532 eproms (which do not come with the board). As we have a 
reasonably priced source of copying eproms, this means that all your 
favourite programs can now be copied on to eproms and kept on one nf 
Mark's Rom Boards. By using either CALL COOO, CALL DOOO or CALL EOOO, 
you can call up your programs, without having to wait the few 
minutes that a cassette tape takes to load. Just plug it in, then 
turn the Genie on, CALL any of the three addresses, and hey presto, 
there is your program! 


SPREADSHEET PROGRAM 


We have, at last, got what looks to be a good spreadsheet program. 

This has come from Peter Fisher (who's Screen Scroller program you may 
remember from a recent newsletter), so we know that it will be a good 
program. As I have only just received it, I haven't had time to go 
through it yet, but there are six typed pages of documentation, to 

explain how to work the program. It is lOK long, therefore the 

listing is too long to be printed in the newsletter, so it will be on 

sale as one of our $3.50 programs. Thank you Peter, there have been a 

lot of requests for a good spreadsheet program. 


PRINTER INTERFACES 


These are also now available from the Group, at a cost of $55.00 each. 
Mark has once more, in between having the flu over the last two 
months, been very busy. Please order from the Group. 


MARK LANGDON AND HIS VOLUNTARY WORK FOR THE GROUP 


Mark tells me that he too, has been phoned or visited at home, by 
people getting anxious for their hardware items. Can we please keep 
both phone calls and visits to Mark to a minimum. He too has a full 
time job, and a wife and family at home, anxious to spend some time 
with him. Please make sure all orders come to me, and not direct to 
Mark, he is our 'wholesaler/manufacturer'. When purchasing from 
Wool ies, you wouldn't go direct to L D Nathan's would you? 
Admittedly, it would be very nice to be able to do so, but Mark 
doesn't know the prices, and by just charging for the bits, he gets 
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nothina at all for the work he has done, and this ts just not fair. 


CAN ANYONE ELSE TRANSLATE GERMAN MAGAZINES INTO ENGLISH 


I hesitate to ask poor Keith McGill, who has already got one book to 
translate now, but we have received two magazines from a Colour Genie 
Group in Germany - obviously another one 1 ike the Engl i sh Group. I 
have a total of 130 pages full of tips, information and programs, and 
I can't read a word of it. Can anyone help us out with this? Even if 
a couple or a few of you took so many pages each. If you can help, 
please get hold of your eternally grateful secretary. 

Ta muchly. 


NEXT MEETING DATE 


Date of next meeting is 19th August - actually, next Monday. 


I hope a lot of you can give the fireplace a miss, and come along. 
Goodness knows what has been planned - we seem to have lost Andy 
temporarily, but even just getting together to have a talk is worth 
coming out into the cold for. 


No 1 a Hugg i n s 


